home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00196.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  300 b   |  17 lines
  1. on mouseDown me
  2.   hideit(51, 51)
  3.   showit(57, 57)
  4. end
  5.  
  6. on mouseUp me
  7.   global r1, g1, b1, X, Y, squarecolor
  8.   squarecolor = "green"
  9.   r1 = X * 15 / 17 * Y
  10.   g1 = 15 * Y
  11.   b1 = r1
  12.   put sprite(32).color
  13.   sprite(32).color = rgb(r1, g1, b1)
  14.   hideit(57, 57)
  15.   set the memberNum of sprite 61 to 207
  16. end
  17.